home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap01 / howto01 / ccsaver.dpr < prev    next >
Encoding:
Text File  |  1996-02-29  |  1.1 KB  |  38 lines
  1. program Ccsaver;
  2.  
  3. uses
  4.   Forms,
  5.   WinTypes,
  6.   WinProcs,
  7.   SysUtils,
  8.   Ccscreen in 'CCSCREEN.PAS' {CCScreenSaverForm},
  9.   Ccsavrsu in 'CCSAVRSU.PAS' {SetupDialog};
  10.  
  11. {$R *.RES}
  12. {$D SCRNSAVE CIUPKC Screen Saver}
  13.  
  14. begin
  15.   StrPCopy( FWPC , 'TCCSCreenSaverForm' );
  16.   { Windows requires only one instance to be allowed at a time }
  17.   if FindWindow( FWPC , nil ) = 0 then
  18.   begin
  19.     if ( ParamCount > 0) and ( UpperCase( ParamStr( 1 )) = '/S') then
  20.     begin
  21.       { Set CCScreenSaverForm to the Main Form }
  22.       Application.CreateForm(TCCScreenSaverForm, CCScreenSaverForm);
  23.       Application.CreateForm(TSetupDialog, SetupDialog);
  24.       Application.Run;
  25.     end
  26.     else
  27.     begin { note that this exits silently if program invoked without params! }
  28.       if ( ParamCount > 0) and ( UpperCase( ParamStr( 1 )) = '/C') then
  29.       begin
  30.         { Set CCScreenSaverForm to the Main Form }
  31.         Application.CreateForm( TSetupDialog , SetupDialog );
  32.         Application.CreateForm( TCCScreenSaverForm , CCScreenSaverForm );
  33.         Application.Run;
  34.       end;
  35.     end;
  36.   end;
  37. end.
  38.